home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / ONE FOUNDATION.bas < prev    next >
BASIC Source File  |  2003-06-12  |  6KB  |  58 lines
  1. 1  TEXT : HOME : IF  PEEK(104) < >96  THEN  VTAB 12: INVERSE : PRINT "    RELOADING ABOVE HI-RES SCREEN #2    ": POKE 104,96: POKE 24576,0: PRINT  CHR$(4);"RUN ONE FOUNDATION": END 
  2. 10  TEXT : HOME : VTAB 2: HTAB 10: INVERSE : PRINT "                    ": HTAB 10: PRINT " [ ONE FOUNDATION ] ": HTAB 10: PRINT "                    ": NORMAL 
  3. 20  POKE 34,5: HOME : VTAB 13: HTAB 7: FLASH : PRINT " - LOADING SHAPE TABLE - ": NORMAL :D$ = "<CTRL-D>": REM CTRL-D
  4. 30  PRINT D$;"BLOAD CARD.SHPS.A$1000.L$90A": POKE 232,0: POKE 233,16: POKE 230,32: CALL 62450: POKE 230,64: CALL 62450
  5. 40  HOME 
  6. 50  FOR I = 768 TO 789: READ J: POKE I,J: NEXT : DATA 160,1,162,0,138,24,233,1,208,252,141,48,192,232,224,125,208,242,136,208,237,96
  7. 60  FOR I = 1 TO 500: NEXT 
  8. 70  HGR2 : HCOLOR= 1: HPLOT 0,0: CALL 62454: SCALE= 1: ROT= 0
  9. 80  HCOLOR= 4: FOR Y = 15 TO 43: HPLOT 24,Y TO 254,Y: NEXT 
  10. 90  HCOLOR= 7: DRAW 37 AT 41,30: POKE 783,150: CALL 768: DRAW 36 AT 57,30: CALL 768: DRAW 27 AT 71,29: CALL 768
  11. 100  DRAW 28 AT 101,29: CALL 768: DRAW 37 AT 116,30: CALL 768: DRAW 43 AT 131,30: CALL 768: DRAW 36 AT 146,30: CALL 768: DRAW 26 AT 161,30: CALL 768: DRAW 23 AT 176,30: CALL 768: DRAW 42 AT 191,30: CALL 768: DRAW 31 AT 206,30: CALL 768: DRAW 37 AT 221,30: CALL 768: DRAW 36 AT 236,30: CALL 768
  12. 110  HCOLOR= 0: FOR Y = 80 TO 98: HPLOT 70,Y TO 210,Y: NEXT 
  13. 120  HCOLOR= 3:Y = 90:L = 768: DRAW 23 AT 85,Y: CALL L: DRAW 41 AT 115,Y -1: CALL L: DRAW 37 AT 125,Y: CALL L: DRAW 34 AT 135,Y: CALL L: DRAW 31 AT 145,Y: CALL L: DRAW 42 AT 155,Y: CALL L: DRAW 23 AT 165,Y: CALL L: DRAW 31 AT 175,Y: CALL L: DRAW 40 AT 185,Y: CALL L: DRAW 27 AT 195,Y -1: CALL L
  14. 130  HCOLOR= 0: FOR Y = 105 TO 123: HPLOT 80,Y TO 200,Y: NEXT 
  15. 140  HCOLOR= 3:Y = 115: DRAW 25 AT 95,Y: CALL L: DRAW 23 AT 105,Y: CALL L: DRAW 40 AT 115,Y: CALL L: DRAW 26 AT 125,Y: CALL L: DRAW 29 AT 155,Y: CALL L: DRAW 23 AT 165,Y: CALL L: DRAW 35 AT 175,Y: CALL L: DRAW 27 AT 185,Y -1: CALL L
  16. 150  HCOLOR= 4: FOR Y = 135 TO 168: HPLOT 46,Y TO 234,Y: NEXT 
  17. 160  HCOLOR= 7:Y = 145: DRAW 38 AT 74,Y -1: CALL L: DRAW 40 AT 86,Y: CALL L: DRAW 37 AT 98,Y: CALL L: DRAW 29 AT 110,Y: CALL L: DRAW 40 AT 122,Y: CALL L: DRAW 23 AT 134,Y: CALL L
  18. 170  DRAW 35 AT 146,Y: CALL L: DRAW 27 AT 158,Y -1: CALL L: DRAW 26 AT 170,Y: CALL L: DRAW 24 AT 194,Y -1: CALL L: DRAW 47 AT 206,Y: CALL L
  19. 180 Y = 160: POKE 783,100: DRAW 38 AT 62,Y -1: CALL L: DRAW 23 AT 74,Y: CALL L: DRAW 43 AT 86,Y: CALL L: DRAW 34 AT 98,Y: CALL L: DRAW 35 AT 122,Y: CALL L: DRAW 52 AT 134,Y +3: CALL L: DRAW 48 AT 158,Y: CALL L: DRAW 27 AT 170,Y -1: CALL L: DRAW 34 AT 182,Y: CALL L
  20. 190  DRAW 35 AT 194,Y: CALL L: DRAW 23 AT 206,Y: CALL L: DRAW 36 AT 218,Y: CALL L
  21. 200  HCOLOR= 3: FOR Y = 179 TO 189: HPLOT 63,Y TO 217,Y: NEXT 
  22. 210  HCOLOR= 0:Y = 185
  23. 220  DRAW 38 AT 68,Y -1: DRAW 40 AT 80,Y: DRAW 27 AT 92,Y -1: DRAW 41 AT 104,Y -1: DRAW 41 AT 116,Y -1: DRAW 23 AT 140,Y: DRAW 36 AT 152,Y: DRAW 47 AT 164,Y
  24. 225  DRAW 33 AT 188,Y: DRAW 27 AT 200,Y -1: DRAW 47 AT 212,Y
  25. 230  POKE  -16368,0
  26. 240 R =  RND(1): IF  PEEK( -16384) <128  THEN 240
  27. 250  POKE  -16368,0: POKE  -16300,0: POKE  -16303,0
  28. 260  VTAB 13: POKE  -16368,0: PRINT "DO YOU NEED TO SEE THE INSTRUCTIONS? ";: FLASH : PRINT " ": NORMAL 
  29. 270 R =  RND(1): IF  PEEK( -16384) <128  THEN 270
  30. 280  GET A$: PRINT : IF A$ < >"N"  AND A$ < >"Y"  THEN 260
  31. 290  HOME : IF A$ = "N"  THEN  POKE  -16302,0: POKE  -16304,0: POKE  -16297,0: POKE  -16299,0: PRINT "<CTRL-D>RUN FOUNDATION": END 
  32. 300  PRINT "  THIS RELATIVELY SIMPLE SOLITAIRE GAME IS PLAYED WITH A STANDARD DECK OF 52    CARDS.": PRINT 
  33. 310  PRINT "THE DECK IS SHUFFLED AND DEALT FACE UP:": PRINT 
  34. 315  PRINT "    ROW 1 = 7 CARDS - RIGHT TO LEFT": PRINT "    ROW 2 = 7 CARDS - LEFT TO RIGHT": PRINT "    ROW 3 = 7 CARDS - RIGHT TO LEFT": PRINT "    ROW 4 = 7 CARDS - LEFT TO RIGHT": PRINT "    ROW 5 = 7 CARDS - RIGHT TO LEFT"
  35. 320  PRINT : PRINT "  WHEN THE CARDS FROM ROW 2 ARE DEALT   THEY MUST OVERLAP EACH CARD FROM ROW 1, BUT YOU SHOULD STILL BE ABLE TO SEE     THE FIRST ROW. (SAME FOR ROWS 3-5)": PRINT 
  36. 330  POKE  -16368,0: HTAB 11: PRINT "[ PRESS ANY KEY ]"
  37. 340 R =  RND(1): IF  PEEK( -16384) <128  THEN 340
  38. 350  POKE  -16368,0: HOME 
  39. 360  PRINT "  NOW THE CARDS SHOULD BE IN 7 VERTICAL COLUMNS OR DEPOTS OF 5 CARDS EACH."
  40. 370  PRINT : PRINT "  A CARD IS THEN DEALT, FACE UP, UNDER  THESE CARDS TO FORM THE 'ONE            FOUNDATION'."
  41. 380  PRINT : PRINT "  THE OBJECT OF 'ONE FOUNDATION' IS TO  BUILD ALL OF THE CARDS FROM THE SEVEN   DEPOTS ONTO THE FOUNDATION PILE."
  42. 390  PRINT : PRINT "  ONLY THE BOTTOM MOST CARD OF EACH     VERTICAL DEPOT IS PLAYABLE.": PRINT : PRINT "  THE SUITS OF THE CARDS CAN BE IGNORED,ONLY THE VALUES OF THE CARDS COUNT."
  43. 400  PRINT : POKE  -16368,0: HTAB 11: PRINT "[ PRESS ANY KEY ]"
  44. 410 R =  RND(1): IF  PEEK( -16384) <128  THEN 410
  45. 420  POKE  -16368,0: HOME 
  46. 430  PRINT "  A CARD CAN BE PLAYED TO THE FOUNDATIONIF IT IS ONE NUMBER HIGHER OR ONE NUMBERLOWER THAN THE FOUNDATION CARD.": PRINT : PRINT "AN EXAMPLE OF PLAY WOULD BE :                                                   8-9-10-9-10-J-10-9-8-9": PRINT 
  47. 440  PRINT "  YOU ARE NOT ALLOWED TO PLAY A KING ON AN ACE OR AN ACE ON A KING!": PRINT 
  48. 450  PRINT "  WHEN YOU CAN'T PLAY A CARD TO THE     FOUNDATION YOU CAN DEAL A CARD FROM THE DECK AND CONTINUE PLAYING CARDS TO THE  FOUNDATION AS BEFORE.": PRINT 
  49. 470  POKE  -16368,0: HTAB 11: PRINT "[ PRESS ANY KEY ]"
  50. 480 R =  RND(1): IF  PEEK( -16384) <128  THEN 480
  51. 490  POKE  -16368,0: HOME 
  52. 500  PRINT "  IF YOU HAVE NO CARDS LEFT IN THE DECK AND CAN'T PLAY ALL THE CARDS IN THE     DEPOTS TO THE FOUNDATION - THEN YOU LOSETHE GAME!": PRINT 
  53. 510  PRINT "  TO PLAY A CARD TO THE FOUNDATION USE  THE <-- AND --> TO LOCATE THE POINTER   UNDER THE CARD YOU WANT MOVED TO THE    FOUNDATION - THEN PRESS [F].": PRINT 
  54. 520  PRINT "  TO TAKE A CARD FROM THE DECK -        PRESS [T].": PRINT : PRINT "  TO QUIT PRESS [ESC].": PRINT 
  55. 530  POKE  -16368,0: PRINT : PRINT : HTAB 11: PRINT "[ PRESS ANY KEY ]"
  56. 540 R =  RND(1): IF  PEEK( -16384) <128  THEN 540
  57. 550  POKE  -16368,0: HOME : GOTO 260
  58. 65432  REM  ** ONE FOUNDATION **       - BY PAUL M. ZELMAN -      [ ALL RIGHTS RESERVED ]